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FIG. 7a 



FiliPataSet Method 

Public Function XXXXFillDataSet{ByVal dataSet As DataSet {.ByVal 
{ParameterName} As System. {ParameterType}}) As Long 

' Copy input Parameter Values to the Parameter Collection 
DIM vtParameter As Varient 
vtParameterl = {ParameterName} 
Set 

{Aclapterinstance}.SelectCommancl.Parameters.ltem(ParameterName.Value=vtParamet 
er1 

'Create an error handling block in case filldataset throws an exception 
Try 

'Load dataSet from the command 

XXXXXFIilDataSet = {Adapterlnstance}.FilIDataSet(dataset) 701 

Catch eFillExecption as Exception 

'If we can do a debug. print without a reference, then we should print the 
'error info to the output window and re-throw the error. 

End 



End Function 



FIG. 7b UpdatePataSet Method 



Public Function XXXXUodateDataSet (ByVal updateDataSet As DataSet) As Long 

const DataCursorRowState flag = DataCursorRowState.new | 
DataCursorRowState.Deleted 1 DataCursorRowState. l\/lodifiedCurrent; 
DataRow[] datarows = dataTable.Select(" ", " ", flag); 

Dim UpdateRows as DataRows() 
Dim NewRows as DataRowsQ 

Dim DeletedRows as DataRows() >^ 

702 

' Get All of tlie Deleted Rows and Update the Data Store 

DeletedRows = UpdateDataSet.Select{" ", " ", DataCursorRowState.Deleted) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 

' Get All of the Updates Rows and Update the Data Store 

UpdatedRows = UpdateDataSet.Select(" " ", 
DataCursorRowState.ModifiedCurrent) 

if 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 

' Get All of the New Rows and Update the Data Store 

NewRows = UpdateDataSet.SelectC ", " ", DataCursorRowState. New) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 



End Function 
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Public Sub FillAllDataSet(ByVal dataset As DataSet(, ByVal Parameters As 
System. {ParameterType}) 

' The line below is added for each adapter on the Virtual Design Surface 
' Passing into the function only the necessary parameters 
(AdapterNamel)FillDataSet dataset{, _parameters} 
(AdapterName2)FillDataSet dataset{, _parameters} 



(AdapterNameN)FillDataSet dataset{, _parameters} 




End Sub 



FIG. 8b 

UpdateAllDataSet 

Public Sub Update{DataSetName} (ByVai dataset As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 

(AdapterNamel)Update dataSet 
(AdapterName2)Update dataSet 



{AdapterNameN)Update dataSet 




End Sub 
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Public Sub FillAIIDataSet(ByVal PurchaseOrder As DataSet(, ByVal Parameters As 
System.{ParameterType}) 



CustomerFIIIDataSet PurchaseOrder(, _parameters} 
OrderFillDataSet PurchaseOrder(, _parameters} 
OrderDetailFIIIDataSet PurchaseOrder(, _parameters} 
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End Sub 

Public Sub UpdateAII (ByVal PurchaseOrder As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 



OrderDetailUpdate (PurchaseOrder, Filtered (Delete)) 
OrderUpdate (PurchaseOrder, Filtered (Delete)) 
CustomerUpdate (PurchaseOrder, Filtered (Delete)) 



-943 



' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Insert | Update)) 
OrderUpdate (PurchaseOrder, Filtered (insert | Update)) 
CustomerUpdate (PurchaseOrder, Filtered (Insert | Update)) "▼---^^^ 
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End Sub 
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